home *** CD-ROM | disk | FTP | other *** search
/ Megahits 5 / Megahits 5 (1994)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / archive / edit / cpaint.lha / CPaint2.lha / cpaint2.e < prev   
Text File  |  1992-08-09  |  3KB  |  128 lines
  1. /*   Now attempting to add new palette
  2.      req better than old one         */
  3.  
  4. OPT OSVERSION=37
  5.  
  6. MODULE 'ReqTools'
  7.  
  8. CONST FILEREQ=0,REQINFO=1
  9.  
  10. DEF pw,x,y,oldx,oldy,color,code1,end,choose,maxx,maxy
  11.  
  12. PROC main()
  13. reqtoolsbase:=OpenLibrary('reqtools.library',37)
  14. end:=FALSE
  15. IF arg[]=63
  16.         WriteF('  CPaint 2.08 will NOT use 256 colors on a screen smaller then 640x480\n  Default is backdrop canvas\n     Usage:  CPaint <w>\n  w --- Open CPaint window canvas    ? --- This menu\n')
  17.         end:=TRUE
  18. ENDIF
  19. IF arg[]=119
  20.   choice()
  21.     SELECT choose
  22.         CASE 0
  23.           maxx:=698
  24.           maxy:=281
  25.           end:=TRUE
  26.         CASE 1
  27.           maxx:=400
  28.           maxy:=200
  29.           pw:=OpenW(0,0,400,200,$F,50,'CPaint v2.08 Windoze',NIL,1,NIL)
  30.  
  31.         CASE 2
  32.           maxx:=525
  33.           maxy:=480
  34.           pw:=OpenW(0,0,525,480,$F,50,'CPaint v2.08 Windoze',NIL,1,NIL)
  35.     ENDSELECT
  36. ENDIF
  37. IF ((arg[]<>119) AND (arg[]<>63))
  38.   choice()
  39.     SELECT choose
  40.         CASE 0
  41.           maxx:=698
  42.           maxy:=281
  43.           end:=TRUE
  44.         CASE 1
  45.           maxx:=697
  46.           maxy:=281
  47.           pw:=OpenW(0,0,698,282,$F,3000,'CPaint v2.08',NIL,1,NIL)
  48.  
  49.         CASE 2
  50.           maxx:=640
  51.           maxy:=480
  52.           pw:=OpenW(0,0,640,480,$F,3000,'CPaint v2.08',NIL,1,NIL)
  53.     ENDSELECT
  54. ENDIF
  55. color:=3
  56. TextF(maxx-39,maxy-13,'Color',)
  57. button_up()
  58. Colour(1,0)
  59. Delay(3)
  60. code1:=0
  61. REPEAT
  62. code1:=Mouse()
  63. SELECT code1
  64.        CASE 1
  65.           oldx:=x
  66.           oldy:=y
  67.           x:=MouseX(pw)
  68.           y:=MouseY(pw)
  69.           Line(oldx,oldy,x,y,color)
  70.  
  71.        CASE 4
  72.           end:=TRUE
  73.  
  74.        CASE 2
  75.           oldx:=x
  76.           oldy:=y
  77.           x:=MouseX(pw)
  78.           y:=MouseY(pw)
  79.           Box(x-5,y-2,x+5,y+2,color)
  80.           Box(x-5,y-2,x+5,y+2,0)
  81.  
  82.        CASE 3
  83.           end:=TRUE
  84. ENDSELECT
  85.  
  86. IF code1<>1
  87.        x:=MouseX(pw)
  88.        y:=MouseY(pw)
  89. ENDIF
  90.  
  91. IF x>(maxx-40) THEN IF y>(maxy-10) THEN IF code1=1 THEN palet()
  92. UNTIL end=TRUE
  93. CloseLibrary(reqtoolsbase)
  94. CloseW(pw)
  95. ENDPROC
  96.  
  97. PROC palet()
  98. button_down()
  99. color:=RtPaletteRequestA('Pick your colour:',0,0)
  100. button_up()
  101. ENDPROC
  102.  
  103. PROC request(body,gadgets,args)
  104. ENDPROC EasyRequestArgs(0,[20,0,0,body,gadgets],0,args)
  105.  
  106. PROC choice()
  107. IF end=FALSE THEN choose:=request('       CPaint v2.08\n       ============\nCommands are as follows :)\n\nLMB --- Draw\nCMB --- Cycle Colours\nRMB --- Erase with Blotter\n\n\nHow many colours d`ya want?','16|256|EXIT',0)
  108. ENDPROC
  109.  
  110. PROC button_up()
  111. Line(maxx-40,maxy-1,maxx-1,maxy-1,0)
  112. Line(maxx-1,maxy-9,maxx-1,maxy-1,0)
  113. Box(maxx-39,maxy-9,maxx-1,maxy-1,1)
  114. Box(maxx-38,maxy-8,maxx-2,maxy-2,0)
  115. Line(maxx-40,maxy-10,maxx-1,maxy-10,2)
  116. Line(maxx-40,maxy-9,maxx-40,maxy-1,2)
  117. ENDPROC
  118.  
  119. PROC button_down()
  120. Line(maxx-40,maxy-10,maxx-1,maxy-10,0)
  121. Line(maxx-40,maxy-9,maxx-40,maxy-1,0)
  122. Box(maxx-39,maxy-9,maxx-1,maxy-1,1)
  123. Box(maxx-38,maxy-8,maxx-2,maxy-2,0)
  124. Line(maxx-40,maxy-1,maxx-1,maxy-1,2)
  125. Line(maxx-1,maxy-9,maxx-1,maxy-1,2)
  126. ENDPROC
  127.  
  128.